home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00053_ivRollCredits init.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  1.6 KB  |  42 lines
  1. on enterFrame
  2.   global givMAINMONITORSPRITE, givROLLCREDITSMASKSPRITE, givState, givTextHiliteColor, givTextFont, givAthleteNameList, givGuestStarList
  3.   puppetSprite(givROLLCREDITSMASKSPRITE, 1)
  4.   DisableIdleAnim()
  5.   DVHide()
  6.   if the mode of givState = #play then
  7.     set the castNum of sprite givROLLCREDITSMASKSPRITE to the number of cast "PlayModeMask"
  8.   else
  9.     set the castNum of sprite givROLLCREDITSMASKSPRITE to the number of cast "EditModeMask"
  10.   end if
  11.   set the visible of sprite givROLLCREDITSMASKSPRITE to 1
  12.   set the castNum of sprite givMAINMONITORSPRITE to the number of cast "MainMonitorCastBlack"
  13.   updateStage()
  14.   if the userTitle of givState = EMPTY then
  15.     set the text of cast "title text" to "Awesome Athletes"
  16.   else
  17.     set the text of cast "title text" to the userTitle of givState
  18.   end if
  19.   if the userName of givState = EMPTY then
  20.     nothing()
  21.   else
  22.     set the text of cast "name text" to the userName of givState
  23.   end if
  24.   if the userLoc of givState = EMPTY then
  25.     nothing()
  26.   else
  27.     set the text of cast "location text" to the userLoc of givState
  28.   end if
  29.   set givGuestStarList to []
  30.   repeat with I = 1 to count(the editList of givState)
  31.     set clipID to getAt(the editList of givState, I)
  32.     if (char 1 to 2 of clipID = "QA") or (char 1 to 2 of clipID = "AV") then
  33.       set athID to char 3 to 5 of clipID
  34.       if getPos(givGuestStarList, item 1 of getaProp(givAthleteNameList, athID)) = 0 then
  35.         append(givGuestStarList, item 1 of getaProp(givAthleteNameList, athID))
  36.       end if
  37.     end if
  38.   end repeat
  39.   MessagePut("Guest Stars found:" && givGuestStarList)
  40.   set the mouseDownScript to "CreditsMouseDown"
  41. end
  42.